home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•AdventureLand•
/
Adventures
/
SpaceEscape ••••
/
SpaceEscape ееее
/
card_38895.txt
< prev
next >
Wrap
Text File
|
1990-10-02
|
2KB
|
82 lines
-- card: 38895 from stack: in
-- bmap block id: 39129
-- flags: 4000
-- background id: 8902
-- name: nav table
----- HyperTalk script -----
on opencard
put "This seems to be a table. Gosh."into field "info"
pass opencard
end opencard
-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=161 top=302 right=323 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
global filter
if filter is "yes" then
beep
exit mouseup
end if
global donteat
get bkgnd field "do what"
if the number of words in it > 1 then
beep 2
oneword
exit mouseup
end if
if it contains "close" then
put "The table cannot be closed." into field "info"
exit mouseup
end if
if it contains "examine" or it contains "look" then
send "opencard" to this card
exit mouseup
end if
if it contains "hit" or it contains "kick" or it contains "punch" then
ouch
exit mouseup
end if
if it contains "get" or it contains "move" or it contains "pull" then
put "The table is too heavy to move." into field "info"
exit mouseup
end if
if it contains "eat" or it contains "consume" then
put donteat into field "info"
exit mouseup
end if
if it contains "open" then
put "The table cannot be opened." into field "info"
exit mouseup
end if
if it is "" then
put "Speak up. I can't hear you." into field "info"
exit mouseup
end if
idunno
end mouseUp
on cont
end cont
-- part contents for background part 2
----- text -----
What would you like to do with the Art?
-- part contents for background part 7
----- text -----
Table